home *** CD-ROM | disk | FTP | other *** search
/ SGI Hot Mix 17 / Hot Mix 17.iso / HM17_SGI / research / examples / doc / house.pro < prev    next >
Encoding:
Text File  |  1997-07-08  |  703 b   |  19 lines
  1. PRO HOUSE
  2.  
  3. house_x = [0, 16, 16, 8, 0, 0, 16, 16, 8, 0]
  4. house_y = [0, 0, 10, 16, 10, 0, 0, 10, 16, 10]
  5. house_z = [54, 54, 54, 54, 54, 30, 30, 30, 30, 30]
  6. min_x = -4 & max_x = 20
  7. !X.S = [-(-4), 1.]/(20 - (-4))
  8. !Y.S = !X.S
  9. !Z.S = [-10, 1.]/(70 - 10)
  10. face = [INDGEN(5), 0]
  11. PLOTS, house_x(face), house_y(face), house_z(face), /T3D, /DATA
  12. PLOTS, house_x(face + 5), house_y(face + 5), house_z(face + 5), /T3D, /DATA
  13. FOR I = 0, 4 DO PLOTS, [house_x(i), house_x(i + 5)], $
  14.     [house_y(i), house_y(i + 5)], [house_z(i), house_z(i + 5)], /T3D, /DATA
  15. XYOUTS, house_x(3), house_y(3), Z = house_z(3), 'Front', /T3D, /DATA, SIZE = 2
  16. XYOUTS, house_x(8), house_y(8), Z = house_z(8), 'Back', /T3D, /DATA, SIZE = 2
  17.  
  18. END
  19.